home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / memory.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  1.6 KB  |  56 lines
  1. /* memory.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     doublereal cpyknt;
  12.     integer istack[1], lorg, icore, maxcor, maxuse, memavl, ldval, numblk, 
  13.         loctab, ltab, ifwa, nwoff, ntab, maxmem, memerr, nwd4, nwd8, 
  14.         nwd16;
  15. } memmgr_;
  16.  
  17. #define memmgr_1 memmgr_
  18.  
  19. struct {
  20.     integer iprnta, iprntl, iprntm, iprntn, iprnto, limtim, limpts, lvlcod, 
  21.         lvltim, itl1, itl2, itl3, itl4, itl5, itl6, igoof, nogo, keof;
  22. } flags_;
  23.  
  24. #define flags_1 flags_
  25.  
  26. /*<       subroutine memory >*/
  27. /* Subroutine */ int memory_()
  28. {
  29. /*<       implicit double precision (a-h,o-z) >*/
  30. /* spice version 2g.6  sccsid=memmgr 3/15/83 */
  31. /*<       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl, >*/
  32. /*<      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4, >*/
  33. /*<      2   nwd8,nwd16 >*/
  34. /* spice version 2g.6  sccsid=flags 3/15/83 */
  35. /*<       common /flags/ iprnta,iprntl,iprntm,iprntn,iprnto,limtim,limpts, >*/
  36. /*<      1   lvlcod,lvltim,itl1,itl2,itl3,itl4,itl5,itl6,igoof,nogo,keof >*/
  37. /*<       if(icore.le.maxmem) go to 10 >*/
  38.     if (memmgr_1.icore <= memmgr_1.maxmem) {
  39.     goto L10;
  40.     }
  41. /*<     5 memerr=4 >*/
  42. /* L5: */
  43.     memmgr_1.memerr = 4;
  44. /*<       return >*/
  45.     return 0;
  46. /*<    10 continue >*/
  47. L10:
  48.  
  49. /*  set job field length to 'icore+locf(istack(ifwa))' */
  50.  
  51. /*<       return >*/
  52.     return 0;
  53. /*<       end >*/
  54. } /* memory_ */
  55.  
  56.